function printgc(f,type,name)
% function printgc(f,type,name)
% print(f,type,'-r300',name)


%set(gcf,'PaperType','A4')
print(f,type,'-r150',name)